BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/T/The Personal Touch/The Personal Touch/background_2527.txt

Text File | 1988-05-03 | 7.8 KB | 378 lines

-- background: 2527 from stack: in
-- bmap block id: 6707
-- flags: 4000
-- background id: 0
-- name: Note Organizer
----- HyperTalk script -----
on opencard
  global topnote
  set hilite of bkgnd button "Note Organizer" to true
  put the name of this card into topnote
end opencard

on closecard
  global smallm, whom, windowopenm
  set hilite of bkgnd button "Note Organizer" to false
  if windowopenm is not empty then
    put windowopenm into whom
    zoomclose
  end if
end closecard

on hidestuff
  set cursor to 4
  set lockscreen to true
  hide bkgnd button "Print Page"
  hide bkgnd button "Delete Page"
  hide bkgnd button "New Page"
  hide bkgnd button id 5
end hidestuff

on zoomopen
  global smallm, whom, windowopenm
  set cursor to 4
  set lockscreen to true
  repeat with x = 1 to 16
    hide card field x
    hide card button x
  end repeat
  hide bkgnd button "Next"
  hide bkgnd button "Last"
  show card field whom
  if windowopenm is not empty then
    put whom into temp
    put windowopenm into whom
    zoomclose
    put temp into whom
  end if
  put rect of card field whom into smallm
  set rect of card field whom to 15,135,495,328
  Set locktext of card field whom to false
  set showlines of bkgnd field "Title" to false
  Set locktext of bkgnd field "Title" to true
  show bkgnd button "Close"
  put whom into windowopenm
end zoomopen

on zoomclose
  global smallm, whom, windowopenm
  set cursor to 4
  set lockscreen to true
  put item 1 of smallm into L
  put item 2 of smallm into T
  put item 3 of smallm into R
  put item 4 of smallm into B
  set rect of card field whom to L,T,R,B
  Set locktext of card field whom to true
  if card field whom is empty then put "•" into card field whom
  put empty into windowopenm
  repeat with x = 1 to 16
    show card field x
    show card button x
  end repeat
  Set locktext of bkgnd field "Title" to false
  show bkgnd button "Next"
  show bkgnd button "Last"
  hide bkgnd button "Close"
end zoomclose



-- part 1 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=8 top=2 right=20 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Card
----- HyperTalk script -----
on mouseUp
  global lastfile
  set cursor to 4
  if lastfile is empty then
    go to bkgnd "File Card"
  else
    go to lastfile
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=133 top=2 right=20 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calender
----- HyperTalk script -----
on mouseUp
  global topcal
  set cursor to 4
  if topcal is empty then
    go to bkgnd "Calender"
  else
    go to topcal
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=259 top=2 right=20 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label Maker
----- HyperTalk script -----
on mouseUp
  global topcard
  set cursor to 4
  if topcard is empty then
    go to bkgnd "Label Maker"
  else
    go to topcard
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=385 top=2 right=20 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Note Organizer
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  show Bkgnd button "New Page"
  show Bkgnd button "Delete page"
  show Bkgnd button "Print Page"
  show Bkgnd button id 5
end mouseUp





-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=386 top=2 right=21 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  hidestuff
end mouseUp




-- part 64 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=127 top=75 right=102 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 7
-- text size: 18
-- style flags: 4096
-- line height: 24
-- part name: Title


-- part 9 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=385 top=70 right=96 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Page
----- HyperTalk script -----
on mouseUp
  global windowopenm,whom
  hidestuff
  if windowopenm is empty then
    set lockscreen to false
    open printing with dialog
    set lockscreen to true
    repeat with x = 1 to 16
      if the number of chars of card field x < 3 then
        next repeat
      else
        put x into whom
        zoomopen
        print this card
        zoomclose
      end if
    end repeat
    close printing
  else
    domenu "Print Card"
  end if
end mouseup




-- part 65 (button)
-- low flags: 80
-- high flags: 2001
-- rect: left=465 top=101 right=126 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 7417 / 7417
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseUp
  zoomclose
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=385 top=45 right=71 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Page
----- HyperTalk script -----
on mouseUp
  global windowopenm, whom
  hidestuff
  if bkgnd field "Title" is "Help Notes" then
    beep 1
    exit mouseup
  end if
  if windowopenm is empty then
    put the name of next card in bkgnd "Note Organizer" into temp
    domenu "Delete Card"
    go to temp
  else
    put "•" into card field whom
    zoomclose
  end if
end mouseUp




-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=102 right=127 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  wait 20
  if the mouse is down then go to first card in bkgnd "Note Organizer"
  else
    go to prev card in bkgnd "Note Organizer"
  end if
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=101 right=126 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  wait 20
  if the mouse is down then go to last card in bkgnd "Note Organizer"
  else
    go to next card in bkgnd "Note Organizer"
  end if
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=385 top=20 right=46 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Page
----- HyperTalk script -----
on mouseUp
  hidestuff
  go to last card in bkgnd "Note Organizer"
  domenu "Copy Card"
  domenu "Paste Card"
  repeat with x = 1 to 16
    put "•" into card field x
  end repeat
  Put empty into bkgnd field "Title"
end mouseUp